home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 112 / SGDS 112.2mg / SDGS.112 / B / CITYP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-01-07  |  1.8 KB  |  108 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM <CTRL-0x0d>(C)1988
  2. 100  PRINT  CHR$(21): IF  PEEK(176) >63  THEN  PRINT "TOO BIG. HGR2 WILL KILL LAST LINES.": STOP 
  3. 110  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): LOMEM: 24576
  4. 130  CALL 2260: REM GSMONO
  5. 140  POKE 104,15: GOTO 1
  6. 150  CALL 2281: REM GSCOLR
  7. 160  PRINT  CHR$(4)"BYE"d"BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  <<CTRL-0x09> IF 1 GET  PLOT  SGN<CTRL-0x09> SPEED= 3 DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT  PLOT <CTRL-0x09> J<UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN>H ONERR  STR$) END  DEL <UNKNOWN TOKEN> IF  PLOT <CTRL-0x09> -  HGR2 u ONERR %  TO <UNKNOWN TOKEN> DEL & ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL '<CTRL-0x18> ONERR  e$e& DEL & SPEED= 
  11. 3593  PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09> ONERR <UNKNOWN TOKEN>)<CTRL-0x0f>i<CTRL-0x09>m HLIN <CTRL-0x09> PLOT  HLIN <CTRL-0x09> VTAB 
  12. 3517 <CTRL-0x0b>H ONERR 2 -? = <CTRL-0x04>hIHh PLOT <UNKNOWN TOKEN><CTRL-0x09> LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x07> COLOR= 
  13. 64333 <CTRL-0x09> COLOR= 
  14. 9873 <CTRL-0x18> SPEED= <CTRL-0x04>e' DEL ' LEFT$ TAN<CTRL-0x08> =  > ?<UNKNOWN TOKEN> -<CTRL-0x0c><UNKNOWN TOKEN><CTRL-0x0f> -<CTRL-0x14><UNKNOWN TOKEN>"h DEL <UNKNOWN TOKEN> ?<UNKNOWN TOKEN><CTRL-0x09> END L<UNKNOWN TOKEN><UNKNOWN TOKEN> X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L +<CTRL-0x09> SPEED= 
  15. 8837  SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL #L +<CTRL-0x09>
  16. 3084 <CTRL-0x0c>
  17. 13056 33
  18. 4671 <CTRL-0x12>?<CTRL-0x12>><CTRL-0x0b><CTRL-0x1e>4<CTRL-0x1f>3<CTRL-0x18><CTRL-0x0c><CTRL-0x06>3>3<CTRL-0x06>3>
  19. 3096 
  20. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x18>
  21. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x06><CTRL-0x1e><CTRL-0x0c>?<CTRL-0x0c><CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>?<CTRL-0x0c><CTRL-0x0c><CTRL-0x1c><CTRL-0x18><CTRL-0x0c>
  22. 0 
  23. 28 
  24. 3096 <CTRL-0x06><CTRL-0x03>
  25. 13107 33<CTRL-0x0c>
  26. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  27. 12339 <CTRL-0x0c><CTRL-0x06>?
  28. 7216 00<CTRL-0x1f>
  29. 13107 ?00
  30. 7939 00<CTRL-0x1f>
  31. 7939 33<CTRL-0x1e>
  32. 6168 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  33. 7731 33<CTRL-0x1e>
  34. 13107 >0<CTRL-0x1e>
  35. 3072 
  36. 6144 <CTRL-0x0c>
  37. 1548 <CTRL-0x0c><CTRL-0x18>
  38. 30 <CTRL-0x06><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  39. 6168 <CTRL-0x0c>
  40. 7680 3;;<CTRL-0x03><CTRL-0x1e>
  41. 13107 ?33
  42. 7987 33<CTRL-0x1f>
  43. 819 <CTRL-0x03>3<CTRL-0x1e>
  44. 13107 33<CTRL-0x1f>
  45. 3843 <CTRL-0x03><CTRL-0x03>?
  46. 771 <CTRL-0x0f><CTRL-0x03><CTRL-0x03>
  47. 771 33>
  48. 13107 ?33
  49. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  50. 12336 03<CTRL-0x1e>
  51. 3871 <CTRL-0x1f>33
  52. 771 <CTRL-0x03><CTRL-0x03>?
  53. 16191 333
  54. 13107 333
  55. 13107 33<CTRL-0x1e>
  56. 13107 <CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  57. 13107 3?<CTRL-0x1e>8
  58. 7987 <CTRL-0x1f>3
  59. 7683 00<CTRL-0x1f>
  60. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  61. 13107 33<CTRL-0x1e>
  62. 13107 3<CTRL-0x1e><CTRL-0x0c>
  63. 13107 ??3
  64. 3102 <CTRL-0x1e>33
  65. 13107 <CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>
  66. 6192 <CTRL-0x06><CTRL-0x03>?
  67. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>0
  68. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3
  69. 3100 <CTRL-0x18>>333>
  70. 13087 33<CTRL-0x1f><CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x03><CTRL-0x1e>
  71. 13118 33><CTRL-0x1e>3?<CTRL-0x03>>
  72. 1542 <CTRL-0x1f><CTRL-0x06><CTRL-0x06>>33>0<CTRL-0x1e>
  73. 13107 33
  74. 3584 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  75. 6144 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x0e>
  76. 3871 <CTRL-0x1f>3
  77. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>???33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>333<CTRL-0x1f><CTRL-0x03>
  78. 13107 3>0
  79. 771 <CTRL-0x03><CTRL-0x03>><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1f>
  80. 1567 <CTRL-0x06><CTRL-0x06><CTRL-0x1c>3333>333<CTRL-0x1e><CTRL-0x0c>33???3<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3333>0<CTRL-0x1e>
  81. 3096 <CTRL-0x06>?
  82. 3596 <CTRL-0x0e><CTRL-0x0c><CTRL-0x18>
  83. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  84. 7196 <CTRL-0x0c><CTRL-0x06>
  85. 6207 
  86. 16191 ???
  87. 8205  GET  COS <UNKNOWN TOKEN> ASC0<CTRL-0x1f> TAN<CTRL-0x04> GOSUB <CTRL-0x1b> CLEAR +<CTRL-0x0d> DEL <CTRL-0x07> CLEAR /<CTRL-0x0d> DEL <CTRL-0x06> SPEED= <CTRL-0x0e> DEL ' SPEED= 
  88. 12960  RETURN <CTRL-0x06> HGR & GR <CTRL-0x10><UNKNOWN TOKEN>`<CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e>3f SCALE=  ^ VTAB <CTRL-0x03> DIM <CTRL-0x06>  GET  COS <UNKNOWN TOKEN> ASC PR#  RESUME <CTRL-0x06> XDRAW 
  89. 50928 <CTRL-0x03>0}  NOT <CTRL-0x02>0y ONERR <CTRL-0x01> -<CTRL-0x03> HGR2 s<CTRL-0x18>e<CTRL-0x03> -) GOSUB l ONERR 
  90. 26256 <CTRL-0x18>e<CTRL-0x02> -<CTRL-0x19> GOSUB _ DEL # ONERR <CTRL-0x02> DEL " ONERR <CTRL-0x01> DEL ! ONERR <CTRL-0x03> DEL   ASC  ASC"  NOT !  NOT !  ASC<CTRL-0x0d> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE <CTRL-0x1b><CTRL-0x0e> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>   STEP <CTRL-0x0d> = <UNKNOWN TOKEN> VTAB <CTRL-0x03> CLEAR <CTRL-0x17><CTRL-0x0e> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  ASC<CTRL-0x0d> ONERR <CTRL-0x02> AT # GOSUB <CTRL-0x0a> COLOR= <CTRL-0x08> GR    STEP <CTRL-0x0d> = <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE 
  91. 51718  = <UNKNOWN TOKEN>   STEP <CTRL-0x0d> = <UNKNOWN TOKEN>  NOT # X<UNKNOWN TOKEN>` INPUT <CTRL-0x06> ONERR <CTRL-0x09> LOMEM: <CTRL-0x01> GR  HGR <UNKNOWN TOKEN> GR  ONERR <CTRL-0x08> HGR <UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> ONERR <CTRL-0x07> HGR <UNKNOWN TOKEN><CTRL-0x18> ONERR <UNKNOWN TOKEN>i<CTRL-0x04> DEL <UNKNOWN TOKEN> LOMEM: <CTRL-0x06>` ONERR <CTRL-0x02> ASC<CTRL-0x02>  TO <UNKNOWN TOKEN> ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL <UNKNOWN TOKEN> ONERR (e<CTRL-0x03> DEL <UNKNOWN TOKEN>`
  92. 32639 <CTRL-0x07>
  93. 28672 CpcqcqcqcqcqcqcqcqCp<CTRL-0x03>
  94. 30720 <CTRL-0x1f>
  95. 24576 <CTRL-0x03>
  96. 24959 sasasasasasasasysy<CTRL-0x03>
  97. 32639 <CTRL-0x07>
  98. 28672 CpcqcqcqcqcqcqcqcqCp<CTRL-0x03>
  99. 30720 <CTRL-0x0f>
  100. 25471 yO<CTRL-0x1c>
  101. 6527 L<CTRL-0x19>L<CTRL-0x19>L<CTRL-0x19>L<CTRL-0x19><CTRL-0x1c>
  102. 20351 cc<CTRL-0x0f>
  103. 32639 <CTRL-0x03>
  104. 26495 sgsgsgsgsgsgsgsgsgsgp<CTRL-0x07>e
  105. 1  HGR : POKE 49234,0: TEXT 
  106. 2  PRINT  CHR$(4)"BLOAD CP.SLOWFAST"
  107. 3  CALL 800
  108. 10  PRINT  CHR$(4)"RUN CITYP.BAS3"